home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / 12_dorei / winprog / shared.dxr / 00450.ls < prev    next >
Encoding:
Text File  |  1995-05-12  |  833 b   |  44 lines
  1. on checktimeout
  2.   global mouseposition, saveronoff, autostatus
  3.   set mouseposition2 to mouseH() & "," & mouseV()
  4.   if mouseposition2 <> mouseposition then
  5.     set the timeoutPlay to 1
  6.     updateStage()
  7.     set mouseposition to mouseposition2
  8.   else
  9.     set the timeoutPlay to 0
  10.     if saveronoff then
  11.       set the timeoutScript to "doTimeOut"
  12.     else
  13.       set the timeoutScript to EMPTY
  14.     end if
  15.     updateStage()
  16.   end if
  17.   if autostatus then
  18.     set the timeoutScript to EMPTY
  19.   end if
  20. end
  21.  
  22. on dotimeout
  23.   global savertime
  24.   repeat with n = 1 to 48
  25.     puppetSprite(n, 0)
  26.   end repeat
  27.   updateStage()
  28.   unLoad()
  29.   go(1, "SAVER")
  30.   exit
  31.   if savertime = 2 then
  32.     go(1, "SAVER1")
  33.     exit
  34.   end if
  35.   if savertime = 3 then
  36.     go(1, "SAVER2")
  37.     exit
  38.   end if
  39.   if savertime = 5 then
  40.     go(1, "SAVER2")
  41.     exit
  42.   end if
  43. end
  44.